home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / SASC / FindAutoDoc.bed < prev    next >
Text File  |  1996-09-26  |  825b  |  51 lines
  1. /*
  2. ** $VER: FindAutoDoc.bed 1.0 (14.01.96)
  3. **
  4. ** Display the AutoDoc of the System Function under the cursor
  5. **
  6. ** It needs:
  7. ** - The AutoDocs in the directory AUTODOCS:
  8. ** - The "AUTODOCS:Autodocs.lst" containing the references to the AutoDocs
  9. */
  10.  
  11. xreffile = "AUTODOCS:Autodocs.lst"
  12.  
  13. OPTIONS RESULTS
  14.  
  15. 'GetWord'
  16. word = RESULT
  17.  
  18. IF word="" THEN DO
  19.     'SetStatusBar "Cursor not on a word"'
  20.     RETURN
  21. END
  22.  
  23. 'OpenDoc WINDOW=READONLY NAME' xreffile
  24. docPort = RESULT
  25.  
  26. ADDRESS VALUE docPort
  27. 'SetDisplayLock ON'
  28.  
  29. 'SetPrefs FindBackward OFF'
  30. 'SetPrefs FindIgnoreCase ON'
  31. 'SetPrefs FindWholeWord ON'
  32.  
  33. 'Find' word
  34.  
  35. IF RC ~= 0 THEN DO
  36.     'BeepScreen'
  37.     'CloseDoc'
  38.     ADDRESS
  39.     'SetStatusBar "Autodoc not found"'
  40.     RETURN
  41. END
  42.  
  43. 'GetLine'
  44. PARSE VAR RESULT word '"'path'"' line
  45.  
  46. 'OpenFile NAME' path
  47. 'Move LINE' line
  48. 'ScrollView 1'
  49.  
  50. 'SetDisplayLock OFF'
  51.